home *** CD-ROM | disk | FTP | other *** search
/ The Complete Utilities To…ka 501 Killer Utilities! / 501 Killer Utilities! (Macworld July 1995).cdr / Programming / RLaB / rlib / cosh.r < prev    next >
Encoding:
Text File  |  1994-02-21  |  308 b   |  15 lines  |  [TEXT/RLAB]
  1. //-------------------------------------------------------------------//
  2.  
  3. //  Syntax:  cosh ( X )
  4.  
  5. //  Description:
  6.  
  7. //  Cosh is the hyperbolic cosine of the element(s) of X.
  8.  
  9. //-------------------------------------------------------------------//
  10.  
  11. cosh = function ( x )
  12. {
  13.   return (exp (x) + exp (-x))/2;
  14. };
  15.